home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_27281.txt < prev    next >
Text File  |  1990-08-14  |  3KB  |  130 lines
  1. -- card: 27281 from stack: in
  2. -- bmap block id: 27436
  3. -- flags: 4000
  4. -- background id: 25947
  5. -- name: TD Department
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=112 top=184 right=202 bottom=242
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Department
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=12 top=185 right=201 bottom=241
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Department
  34. ----- HyperTalk script -----
  35. on mouseDown
  36.   global checkLoc3
  37.   if first item of the clickLoc >= 104 then
  38.     get the rect of me
  39.     put item 1 of it + 92 into horz
  40.     put item 2 of it into vert
  41.     set hilite of me to true
  42.     put "NA                          ,Commerce,English," into menuList
  43.     put "French,Home Economics,Industrial Ed.,Mathematics," after menuList
  44.     put "Physical Educ...,Science,Social Studies" after menuList
  45.     put PopUpMenu(menuList,vert,horz,checkLoc3) into temp
  46.     if temp > 0 then
  47.       put item temp of menuList into card field "Department"
  48.       put temp into checkLoc3
  49.     end if
  50.     set hilite of me to false
  51.   end if
  52. end mouseDown
  53. on mouseDown
  54.   global checkLoc1
  55.   if first item of the clickLoc >= 147 then
  56.     get the loc of card window
  57.     put item 1 of it + 147 into horz
  58.     put item 2 of it + 134 into vert
  59.     put "NA,Commerce,English,French,Home Economics," into menuList
  60.     put "Industrial Ed.,Mathematics,Physical Educ...," after menuList
  61.     put "Science,Social Studies" after menuList
  62.     set hilite of me to true
  63.     put PopUpMenu(menuList,vert,horz,checkLoc1) into temp
  64.     if temp <> 0 then
  65.       put temp into checkloc1
  66.       put item temp of menuList into card field "Department"
  67.     end if
  68.     set hilite of me to false
  69.   end if
  70. end mouseDown
  71.  
  72.  
  73. -- part 3 (field)
  74. -- low flags: 01
  75. -- high flags: 0007
  76. -- rect: left=250 top=114 right=260 bottom=494
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 9
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Rooms
  85.  
  86.  
  87. -- part 4 (field)
  88. -- low flags: 01
  89. -- high flags: 0000
  90. -- rect: left=314 top=272 right=290 bottom=494
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Room #
  99.  
  100.  
  101. -- part contents for card part 1
  102. ----- text -----
  103. NA
  104.  
  105. -- part contents for card part 4
  106. ----- text -----
  107. Unassigned
  108.  
  109. -- part contents for card part 3
  110. ----- text -----
  111. Unassigned
  112. 100 Science Lab
  113. 102 Science Lab
  114. 103 Gymnasium
  115. 104 Computer Lab
  116. 105 Library
  117. 106 Classroom
  118. 107 Classroom
  119. 109 Classroom
  120. 110 Classroom
  121. 111 Classroom
  122. 112 I.E. Shop
  123. 113 Drafting Room
  124. 114 Typing Room
  125. 115 Home Ec. Room
  126.  
  127.  
  128. -- part contents for background part 7
  129. ----- text -----
  130. Mrs. Margaret Tesch